home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / t_os / most / tools / mmlcheck.bas next >
BASIC Source File  |  1994-06-01  |  907b  |  26 lines
  1. 10 '━━ＭＭＬチェッカ　Ｖ１．０Ｃ　　ｂｙ　ＤＥＮ━━　1994.02.16
  2. 20 '
  3. 30 'なんのことはない、単にＭＭＬを一覧表示するだけでおま。
  4. 40 'マウスでファイルを選び、左クリックで順々に表示していきまふ。
  5. 50 '右クリックでファイル選択に戻るズラ。終わる時はＢＲＥＡＫしてね。
  6. 60 '
  7. 70 SCREEN@0:CLS:COLOR 7:DIR$="mml\":MOUSE 0:MOUSE 1,,,1
  8. 80 CLS:COLOR 7,,,4:CONSOLE 0,25:LOCATE 0,0:MM$=""
  9. 90 FILES DIR$+"*.MML"
  10. 100 WHILE MOUSE(2,0)=0:WEND
  11. 110 MX=MOUSE(4,0):MY=MOUSE(5,0)
  12. 120 A$=CHR$(SCREEN(0,MY\19))
  13. 130 IF A$=CHR$(0) OR A$=" " THEN 100
  14. 140 FOR I=0 TO 7:MM$=MM$+CHR$(SCREEN(I,MY\19)):NEXT I
  15. 150 '
  16. 160 CLS:COLOR 2:CONSOLE 2,23:LOCATE 0,0:PRINT MM$+".MML"
  17. 170 COLOR 7:LOCATE 0,10
  18. 180 OPEN "I",#1,DIR$+MM$+".MML":A=EOF(1)
  19. 190 WHILE A=0
  20. 200  LINE INPUT#1,MML$
  21. 210  PRINT MML$
  22. 220  A=EOF(1)
  23. 230  IF MOUSE(2,1) THEN A=1 ELSE IF MOUSE(2,0)=0 THEN 220
  24. 240 WEND:CLOSE
  25. 250 WHILE MOUSE(2,1)=0:WEND:GOTO 80
  26.